home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 522 / okami12 / gem.lst < prev    next >
Encoding:
File List  |  1991-04-17  |  1.0 KB  |  56 lines
  1. '
  2. '               GEM - Darstellung der GEM-Menüleiste
  3. '         Zum Aufruf von Accessories von der Okami-Shell aus
  4. '
  5. '         (so etwas geht in GFA-Basic halt schneller als in C)
  6. '
  7. '                             wr 20.4.90
  8. '
  9. DEFLIST 0
  10. VOID FRE(0)
  11. '
  12. CLS
  13. CLOSEW 0
  14. DEFFILL 1,2,4
  15. PBOX 0,0,640,400
  16. DIM menuleiste$(10)
  17. FOR i%=0 TO 50
  18.   READ i$
  19.   EXIT IF i$="<ende>"   ! <ende> muß letzter Eintrag sein !!!!!
  20.   IF i$<>"" AND i$<>"-"
  21.     i$=" "+i$+" "
  22.   ENDIF
  23.   LET menuleiste$(i%)=i$
  24. NEXT i%
  25. MENU menuleiste$()
  26. MENU 2,2
  27. DPOKE WINDTAB+2,0
  28. DPOKE WINDTAB+4,0
  29. DPOKE WINDTAB+6,0
  30. DPOKE WINDTAB+8,640
  31. DPOKE WINDTAB+10,400
  32. OPENW 1
  33. OPENW 0
  34. DATA Desktop,EXIT,------------------,Acc1,Acc2,Acc3,Acc4,Acc5,Acc6,"",""
  35. DATA <ende>
  36. ON MENU  GOSUB menue
  37. ON MENU MESSAGE GOSUB men.mes
  38. SGET bl$
  39. DO
  40.   ON MENU
  41. LOOP
  42. '
  43. PROCEDURE menue
  44.   LOCAL esc$
  45.   MENU KILL
  46.   CLOSEW 1
  47.   CLOSEW 0
  48.   esc$=CHR$(27)
  49.   PRINT esc$;"e";esc$;"v"  ! Cursor an, Wrap an
  50.   CLS
  51.   END
  52. RETURN
  53. PROCEDURE men.mes
  54.   SPUT bl$
  55. RETURN
  56.